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ABSTRACT 


This document describes the Compatibles/600 General 
Loader. Divided into three phases, GELOAD reads and 
generates a table from debug control cards, provides logic 
for linking subprograms, and generates file control blocks 
required by the user. | 
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INTRODUCTION 


GELOAD is a general purpose loader with the ability to load 
absolute or relocatable programs which may be considered in 

three phases or overlays. Phase 1, which is optional, reads 

and generates a table fecil debug control cards supplied with 

the user's deck. This information will be used at object time, 

to give snapshot printouts of specified Locations within the 
program during execution. Phase 2, the loader itself, provides 
the logic for linking subprograms together, reserving storage 

for data regions, calling in subroutines from established libraries, 
and segmenting the relocatable program into loadable overlays. 
Phase 3, also optional, generates the file control blocks required 


by the user as specified on file control cards. 
PHASE l 
l. Entered by reading loader control card: $ DUMP. 
2. Read debug statement cards. 
3. Encode information from cards and generate debug table. 
4%. Enter names of library subroutines used by debug in load 
table. 
PHASE 2 
1. Read loader control cards and set conditions accordingly. 


2. $ OBJECT card indicates a subprogram is to be loaded from 


the R* input file. 
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a. Generate load table from preface cards. 
b. Assign entry location, if not given. 


ec. Pick up and assign proper relocation to instructions 
and data of object subprograms until $ DKEND card 


is encountered. 


d. Fill in debug tables, if applicable, with any references 
within subprogram just loaded using special table 


loaded as LABELED COMMON. 


e. The debug reference table above will be overlayed 


by the next subprogram loaded. 
f. Return to read next control card. 


3. $ SOURCE card indicates a subprogram is to be loaded from 
ee ee Py ae ae ree ) ; mt 
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4. $ LINK card causes subprograms already loaded to be saved 


on a file for later chain overlay processing. Ba ann sien 


5.  $ EXECUTE card signals GELOAD that no additional object 
programs have been supplied by the user. If Phase 3 is 


required, it will be called when this card is encountered. 
6. Available libraries are searched for undefined subprograms. 


All remaining undefined subprogram references are filled 


“I 
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in with MME GEBORT. 


8. All GELOAD files are closed. 
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Unused allocated core is reset and released to GECOS. 


‘ \ 
Transfer to user's entry point. 


Read GECOS $ FILE cards and $ FFILE control cards ips an 
{i ra 


Build table of file codes and file control block parameters 


from the cards. 


Generate a file control block for: 


a. Each file code mentioned in a FFILE card. 


b. Each numeric file code from a GECOS file card which 


is less than 44. 
c. I* and P* files. 


No file control blocks will be generated only if: 
a. There are no FFILE control cards and all file codes 


on GECOS file cards are nonnumeric. 


b. The option NOFCB is requested in a $ OPTION control 


card. 


All file control blocks will be generated in the unused 
memory (as specified by cell 31 of the user's fault vector) 


at the completion of loading. 


a2 


TABLE FORMAT = LOAD TABLE 


e Location: Immediately follows GELOAD 


° Type of Entries: 


SYMDEF's : 


where: 


Chain 


SYMREFs with 


where: 


Aen 
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L BCI 1, NAME 


Lt+l ZERO X,Chain 


=O when NAME is undefined (SYMREF) 


=L( NAME) when NAME has been defined 


=L(First reference to NAME). When all 


references are filled in, this field is zero. 


addends: (NAME+4) 
L VFD 6/77 ,12/A,18/LC NAME in 
Load Table) 


L+1 ZERO - Addend L( Reference to NAME) 


=1: Addend applied to lower 18 bits of word. 


=O: Addend applied to upper 18 bits of word. 


tien 


12 BCI — 1,NAME 

L+1 ZERO L( NAME) 

L+2 VFD H6/$,12/0,18/(Size of LABELED 
COMMON ) 

L+3 ZERO L( NAME ) 


° Location: Loaded 


when $ 


° Transfer vector 
Depending on the 
and two optional 
from the Library 
beginning of the 


program. 


° Standard entries 


TABLE FORMAT - DEBUG TABLE 


in reverse order at current loading address 


DUMP card is encountered. 


control cards used, the subroutine DEBUG 
subroutines DUMP and EXIT may be called 
file. A three-word transfer vector at the 


table provides linkage with the user's 


Five standard entries are generated for each set of DEBUG 


conditions. 


L ZERG 

L-lL Replaced 

L-2 BCI 

L-3 BCI 

L-4 ZERG 
where: 


Tl points to 


T1L,LCDRL) 

Instruction (Operation code only) 

L,NAME (Routine) 

1,SYMB@L (Location for test of conditions ) 
0, addend (Applies to SYMBOL) 


ae pre 
beginning of next encoded set of conditions. 


LCDRL) is location in user's program where return is to 


be made after debug is complete and the replaced 


instruction has been executed. 
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o IF clauses (3-word minimum; 5-word maximum entry) 
IF clauses are encoded into the Debug Table in a variable format 
depending upon the arrangement of variables, subscripts, constants 
and null fields within the conditional description (set of 
parentheses ) of the clause. A control word (location L of the 
table entry) contains bits further describing the type and content 
of table entries L-l through L-4: 
L VFD 66/77 ,1/0,1/A,1/B,1/C,2/D,2/Ky ,2/Ky,2/K3,18/0 


where the above codes imply the following memory contents: 


Code Implies 
A=0 Mode is fixed 
A=l1 Mode is floating 
C= 0 Variable operator is add 
G= 1 Variable operator is subtract 
K, ,K,,Kq = 0 No 
Lr2"3 =1 Yes 
= 2 EXIT 
e = 3 DUMP 
Code Location Before Program Loaded _ After Program Loaded 
Ba 0 Lee 1 BCI 1,VARL ZER® LC VARL),0 
B=eltL-tl ZER@ O,subscript ZER@ O,subscript 
Lise 2 BCI 1,VARL a ZER@Z LC VARL),O 


(In the following description, the location symbol "n" will be used 
to illustrate the variable nature of this table entry, such that 


for B = 0, n=L - 2 and forB =1, n=L - 3) 


D=O n BCI 1, VAR2 | ZERZ L( VAR2),0 

D=lin ZERG O,subscript ZER® O,subscript 
n-1 BCI 1, VAR2 | ZER® L( VAR2),0 

D=2 n DEC constant DEC constant 

D= 3 second variable is null 
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o FOR clauses. 


L VFD 06/76/30/0 
L-2 ZERG 0, nN, 


Where Ny» Ny, Ng imply debug for count from n, to ny in 


increment of Ng: 


o Variable list 


AD < 
1. Single Cell (No subscript ) VA 


Before program loaded After program loaded 


L ZERG VFD 18/L@C,12/-1,6/Type 
L-1 BCI 1,VAR BCI 1,VAR 
, CROLL? ab vo the Cee joer tel Arr 
2. Single Cell (subscripted) pM y ( gt oe ae 
CAL A Co Ek COA ber CTE (> 
L ZERGZ i,, iy ZER@ i,, iy 
ea VFD 18/0,12/1,6/0 VFD 18/L@C,12/1,6/Type 
Te) BCI 1,VAR BCI 1,VAR 
3. array (VAP (8 20.7 ) Goo ee 
Bee Rees gee Ce” Seve pee 
L ZERD io, iy ZERG in, iy | 
al VED 18/0 12/i3,6/0 VFD 18/L@C,12/i,,6/Type 
E22 BCI 1, VAR BCI 1,VAR 
? . \ Stapf 7 a 
ng? UCtah amp fe GS Ditenp (MA) Ung (2) = Sine 
L ZER@ SUB1,SUB2 ZER@ maximum loc. ~ 
minimum loc. 
L-l - BCT 1,NAME9 VFD 18/0,12/1,6/16 
L-2 BCI 1,NAME, DEC -1 


Where : . 
ij,i9 and i3 are integers specifying the variables from ij, to ig 
in increments of 13. 


SUB1 and SUB2 are possible. subscripts of symbols NAME1 and 


vee pana ast SLOT RET 


NAME2 eeepeeeiuery: 
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TABLE FORMAT - FFILE CARDS 


L 


L+2 


L+3 
L+4 
L+5 
L+6 
L+7 
L+8 


L+9 


Notes: 


VFD 
VFD 


oS Rares ais stb 


18/L( Next Segment) ,6/0,H12/File Code 
18/Retention Period,18/Bits to be set in L@WER 
of L@CSYM 

18/Buff. Size,18/Bits to be set in LOWER of 
L@CSYM-5 

18/PREHED, 18/0 

18/PQSHED , 18/0 

18/PRETRL,18/0 

18/PQSTRL,18/0 

18/ERRXIT,18/0 

18/MLXLNG, 18/FIXLNG 

6/LU1,6/LU2, . . . 6/LUn 


Ll. The lower 18 bits of words L+1 and L+2 are set only in the event of 


corresponding fields on the FFILE cards. For example: 


Bit 25 of L@CSYM-5 (Bit 25 of L+2) is set only if the 


field MLTFIL is present on the FFILE card. 


2. In word L+8, either the upper or the lower condition will be set 


but not both. The upper 18 bits of the word is the location of 


SYMDEF supplied as the name of the subroutine to handle mixed- 


length records. The lower 18 bits of the word is the length, in 


number of words, of each record. 


3. Word 1+9 may be repeated as required to include dll logical unit 


numbers specified on the FFILE card. The LGU's are packed up to 


Six per word, with zeros filling in unfinished words. 


4. Table is terminated by a word of zeros with the pointer in L 


indicating it to be the next segment. 


GE*6O00 SERIES 


202 


GE-600 SERIES 


PHASE 1 CONTROL - DBG 


Lvs 


va 


Phase 1 is entered on reading $ DUMP control card. 


Macro EDBGT is used to make entries into debug table. 
Location of entry is in index 7 which is decremented and compared 
with the load table address to check for overlap. Argument #1 


is the entry. 


Test LOWLOAD. If not requested, set current loading address in 


index 7 and go to step 5. 


If LOWLOAD, set highest allocated core address (MXCR) in index 7 
and lowest available address (MLDADD) in LDTCL to be used to 


test for debug-table/program overlap. 
Set flag indicating presence of debug statements. 
Save beginning address of debug table for memory map printout. 


First cell of table is used as transfer vector for DEBUG 
subroutine from the library file. Two additional cells are also 
reserved for possible extension of vector to include linkage 


to subroutines DUMP and EXIT.’ 


Set transfer to beginning of debug transfer vector in symbolic 


location TWO, for later storage in Ge the Ree pu] 
/O as 
y 


Salt reel 
weeter (the DRL fetl). 


Get name of program being debugged from $ DUMP card. 
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ll. 


L2% 


13. 


14. 


Lo. 


16%. 


ie 


LS. 


19. 


20. 


21 


t 
A C PY, ¢ ca an ee 
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Read next card. If not DEBUG card, then error. 


Skip one cell to be used as a pointer 
(a) Address of next segment of table (upper) 


(b) Address plus one of instruction when DRL is inserted (lower) 
Save this table location as beginning of current segment. 


Skip one cell in table for storage of operation code of 


instruction where DRL is inserted. 
Enter symbolic name of program. 


Get symbol or statement number where debug is to take place 


and enter it, with possible addend, in table. 


Test characters for possible IF clause. If not go to step 24. 


Test if IF clause is legal. If not, print message and reset 
table entry address to overlap any entries pertaining to illegal 


clause. Then go to step 36. 
Set flag for IF clause. 


Enter control word (770000000000). ©§ See table format for 


breakdown of bit codes. 
Enter variable names and subscripts involved in IF clause. 


Set appropriate bits in control word for conditionals, YES, 


NO, DUMP, or EXIT. 
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22. If DUMP or EXIT is used, enter symbols in transfer vector. (See 
Step 7 above.) Later during loading these will be defined by 
subroutines from the system library. 

23. If statement contains another clause go to step 16, otherwise 


go to step 29. 
24. Test characters for possible FOR clause. If not, go to step 29. 


25. Test if FOR clause is legal. If not, print error message and 
reset entry address to overlay entries pertaining to this 


Statement. Then go to step 36. 
26. Set flag for FOR clause. 
27. Enter control word (760000000000). 


28. Enter Ng, Ny and ng in the next two cells respectively, then 


go to step 16. 


29. Test for left parenthesis as beginning of list. If not, this 
is an error. Print message and skip to next debug statement 
causing the deletion of the entire statement containing the 


error. 
30. Set flag for list. 


31. Beginning of list entries is signaled by a word of zeros in 


table. 


32. List is scanned and entries are made according to the table 


format description defined earlier. 
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34. 


33:3 


36. 


37. 


38. 


395 


40. 


41. 


42. 


43. 
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Final right parenthesis ends list. 
One complete set of conditions has been encoded into the table. 


Set pointer (upper 18 bits of word at step 11) to next unused 


cell below table. 
Read next control card. 


Test card: 


a. If $ DUMP card, go to step 9. 
’ ye 


b. If not $ “card, go to step 1l. 


c. If other control cards, close table with word of zero. 
If HIGHLOAD go to step 40. 


For LOWLOAD, debug tables are generated at high end of allocated 
core just as they would be for HIGHLOAD. They are then moved, 
aetna | 


with their relative positions unchanged, to the low end of 


re ve os f % "ha 
allocated core. butane, im prltetens “hy Pale Corian f 


nn 0 Pe I RR 


Table is still stored in reverse order; that is, transfer vector 


at high end and word of zeros signaling end of table at low end. 


Enter the symbolic names, DEBUG, DUMP, and EXIT (the latter two 
only if required in IF clause) in load table as SYMREFs with 
reference pointers to the relative positions in the transfer 


vector. 


TRA instructions are inserted in place of the symbolic names 


previously in the vector. 


Load Phase 2. 


eo 


_'PHASE 2 CONTROL 


Ls 
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Save first unused core location to be used in print of storage 


map. 


Read loader ‘control,card (subroutine RMCD). 
foe ge e Vv 


Isolate type field in card and compare with list of possible 


types. 


Transfer to subroutine associated with control card type. 
Note: Controls for card types other than $ OBJECT are 


described beginning at step 53. 


$ OBJECT indicates one subprogram is to be loaded from the R* 


file using subroutine LOAD. 


On entry to LOAD all necessary buffer references are set to 


the file being loaded. — 


Read preface card using subroutine PCRD. 


On return from PCRD, symbolic location CURF contains the 
address of card image and LOADT4 is the tally on which individual 


words are picked up. 


Size of the load table is increased by four times the number 
of entries on the preface card to handle the maximum possible 
entries. The temporary reference table is located 


immediately following load table for this subprogram. 
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10. An entry is taken from the preface card and tested for being 
one of the following types. . The table below indicates where 


the control for each type is described. 


Type Step 
SYMDEF 11 
SYMREF 16 
LABELED COMM@N 19 


DEBUG SYMB@ZL 
TABLE COMMON 25 


11. Enter SYMDEF symbol in load table with entry Location in upper 


18 bits of cell following symbol. 


12. Enter pointer, to cell containing entry location, in temporary 


reference table. 


13. If this is first SYMDEF entry to load table, save as possible 


entry point to program. 


14. Increment counters for load table, reference table and preface 


card entries. 


15. If more entries on preface card go to step 10. Otherwise go 


to step 27. 


16. Enter SYMREF symbol in load table with a word of zeros in the 


cell following symbol. 


17. Enter pointer to cell containing zeros in temporary reference 


‘table. 
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18. 


19. 


20. 


at i 


ve 
236 
24. 


20% 


26. 


2d 


28 
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Increment preface card entry counter. If more entries, go to 


step 10. Otherwise go to step 27. 
Enter LABELED COMMON symbol in load table. 


Enter beginning address of LABELED COMMON in upper 18 bits of 


cell following symbol. 
Two additional entries flag this as a LABELED COMMON entry. 


Enter size of LABELED COMMON region in lower 18 bits and 


$ as first character of next sequential cell of load table. 


Fourth cell in this group of entries is same as second cell 


(see step 20 above). 


Enter pointer to cell following symbol in temporary reference 


table. Then go to step 18. 
No entries are made in load table for the debug symbol table. 


For debug symbol table, enter pointer in temporary reference 
table to cell containing location of the first unused cell 
beyond the program and LABELED COMMON. This will ensure that 
the symbol table is always Loaded outside the area reserved 
for instructions. The next subprogram to be loaded may then 


overlay the debug symbol table. Go to step 18. 


Get V-bit count from preface card and store in appropriate 


shift command to be used Later in special relocation. 


Print storage map , if requested by user. 


= 1 6= 


29. Move SYMREF and LABELED COMMON entries of the temporary 
reference table to working area. For LOWLOAD, this area is 
the top of available memory and for normal loading it is just 
below the last allocated subprogram or LABELED COMMON region. 
This is done to allow additional entries such as SYMREF's with 
addends to be made in the load table during loading of the 


subprogram. 
30. Read binary program card using subroutine BCRD. 


31. Set counters and storage constants from control word (word 1 of 
binary card): 
a. Relative loading address in X3 
b. Tally word LOADT2 used to pull words from card image. 


c. X6 and X7 to pick up relocation bits. 
32. Load instruction or data word into Q-register. 
33. Isolate relocation bits for this word. 


34. Go to respective subroutine for relocation according to bit 
pattern for upper and lower 18 bits of word being stored. 
Note: The following subroutines are called for relocation 

| of the appropriate 18-bit segment of the word. The 


main flow of description is continued with step 45. 


25% Absolute entries (Type 00) are loaded directly into memory 
after the address specified has been tested as being within 


the limits of allocated core. Go to step 32. 
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36. Normal relocation (Type O01) adds the relocation constant 
to the respective 18 bits and stores the word in its proper 
core location with respect to the beginning of the subprogram 


being loaded. Go to step 32. 


37. BLANK COMMON relocation (Type 10) adds the relative beginning 
address of the BLANK COMMON region to the respective 18 bits 
and stores the word in core with respect to the beginning 


of the subprogram or data region. Go to step 32. 


38. Special relocation (Type 11) requires the use of the V-bit 


shift which was set up in step 28. 


39. Bits 2 through V+l of the 18-bit segment of the word being 
relocated are isolated to determine which entry in the 


reference table will be used for this relocation. 


40..Using pointer in reference table, determine if symbol referred 
to has been defined. If so apply addend to entry location 


associated with symbol and go to step 43. 


41. The symbol is not defined and is being referred to with 
addend or in the lower 18-bits of the word making reference. 
This condition causes the following entry in load table. 

VFD 6/77 ,12/LOW,18/L( Symbol in load table) 
ZERO Addend, L(€cell diane reference ) 
where: LOW=1 Reference is in lower 18 bits 


— 


LOW=0 Reference is in upper 18 bits 
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42. The symbol is not defined and referred to directly in the 
upper 18 bits of the word making reference. This condition 
alters the original SYMREF entry in the load table (see step 16). 
The contents of the lower bits of the cell following the symbol 
(in the load table) replaces the upper bits of the word being 
loaded. The location of the word being loaded is set in the 
lower 18 bits of the load table entry. If several such entries 
occur before the symbol is defined, a chain is formed which is 
terminated by zeros in the upper of the first reference to the 


symbol. 


43. When both 18-bit card segments have been relocated, the word 


is stored in memory relative to its subprogram origin. 


44. Return to step 32 until all instructions or data words have 


been loaded from the card image. 


45. A $ DKEND control card signals the end of a subprogram deck. © 
Under certain conditions, a $ DKEND control card may contain 
additional control information in its variable field. 

Variable Control 

CONTINUE Signifies a batch compile or more 
than one subprogram to be loaded from 
the B* file before returning control 
‘to R*. The current file is ected and 
if this control card was not read from 


B*, the CONTINUE is ignored. 


LODER: This is an ALGOL control which allows 
for further processing of the.load table 


before additional subprograms are loaded. 
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46. When the entire subprogram and its LABELED COMMON regions 
have been loaded, the presence of debug statement cards 
with this job is tested. If none, return to step 2 to read 


next monitor control card. 


47. In Phase 1, a table was generated from the debug statement, 
symbolic identifiers were stored in the table indicating 
specifically where in the source program snapshot dumps were 


to occur and what was to be dumped. 


48. The debug statement table is searched for statements pertaining 


to the subprogram just loaded. 


49. The debug symbol table (if one was loaded with the. 


subprogram is searched). 


50. If no symbol table exists, the load table of SYMDEF and 


LABELED COMMON entries is searched. 


51. As defined, each of the symbols in the debug statement table 
is replaced with an address. Operation codes of the instructions 
at the locations where debug is to take place, are replaced 
with the DRL instruction after festine:ttie operation codes 
against a table of codes which cannot be simulated by the DEBUG 


program. 


52. Variable and locations which are still undefined at the end 
of the search are flagged with error messages. If only one 
variable in a List is undefined, the DRL is removed from 


the instruction and the operation code is replaced. 
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Control Cards 


Type Step Number 
$ ENTRY 53 
$ EQUATE 55 
$ EXECUTE «56 
$ LIBRARY 57 
$ LINK 58 
$ L@WLGAD 59 
$ SPTION 62 
$ RELC@M 63 
$ SMURCE 64 
$ USE 66 
$ N@LIB 70 


At the conclusion of processing of each control card, control 


returns to step 2. 


eytet- 
53. Get NAME of entry from“card. 


54. If processing a Link overlay, store symbol as a link entry; 
otherwise store it as an entry to main program. Then return 


to step 2. 
55. a. Variable field of $ EQUATE card is scanned for first symbol. 
b. If break character is not a /, control goes back to step 4. 


c. The load table is searched for this symbol. If it is 
yet undefined, a fatal error message is printed and 


control goes back to step 2. 


s 
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d. Test possible increment to symbol. An addend may be applied 


to a symbol which has been defined. 
e. Resume field scan for symbols to be defined. 


f. Test each symbol for previous definition in the load table. 


If previously defined, print nonfatal message and redefine. 


g. If symbol being used as definition is that of BLANK COMMON 


(.CMN.), the symbol being defined will be entered in the load 
table as a LABELED COMMON region and given a defining address 
within BLANK COMMON. The size of this region will be filled 


in later. 

h. Each set of equations is enclosed in slashes (/) and separated 
by commas. The last set is terminated by a blank column. 
Equation fields may not be continued on additional cards 


but additional $ EQUATE cards may be used. 


56. a. $ EXECUTE, a GECOS control card, signals the end of program 
loading. All final housekeeping necessary for closing Phase 2 


is begun. 
b. Available libraries are searched for any routine yet undefined. 
c. The storage map is printed. 


d. The load table is searched for chained references and undefined 
references. Chained references are completed in the CHN 


subroutine. 
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e. Remaining references to undefined SYMREFs are filled in 


with: 
TSX7 .MSNG. 
where: 
.MSNG. LDQ =3H@L1,DL ABORT CZDE 
MME GEBQRT ABORT 


The .MSNG. coding is placed in the next two available locations 
following loading of the user's program. 
(The user may include his own subroutine .MSNG. on his library 


if a different procedure is preferred.) 


f. If any fatal error messages have been printed, loading and 
execution are deleted at this point. 


g. The entry to the user's program is determined and given to the 
setup subroutine (.SETU.). (The setup subroutine is optional 
and may differ between user's of FORTRAN, COBOL, ALGOL, etc.) 


The priority of entry is determined as: 
(a) $ ENTRY card 
(b) FORTRAN Standard Entry (...... ) 


(ec) First SYMDEF placed in load table from preface card. 


h. If job was loaded under LOWLOAD control, the unused memory 


above the program is cleared. 


i. Place address of bounds of the unused memory in cell 31 of 


the user fault vector. 


j-. Correct addresses in the user's debug table (if one exists) 


relative to his own base zero. 
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k. Close B* and L* files. 


lL. Go to Phase 3 unless NOFCB option was requested, in which 
case the R* and P* files are closed and entry is made into 


the user's program via the setup subroutine. 


57. a. Use GFLD subroutine to obtain library file codes from $ LIBRARY 


card. 
b. Enter file codes in table in order in which theyappear on card. 
c. L*, the system library, is a permanent entry in the table. 


58. a. The $ LINK control card signals the end of the current link 


and the beginning of a new one. 


b. A link is concluded much the same as a separate program in 


that libraries are searched and a storage map is printed. 


4 


c. $ LINK cards without origins (that is, first link and links 
which are not overlays) are handled seco llews? 
(a) Enter link ID in load table with defining address. 
(Cb) Print $ LINK card. | | 
(c) Read next control card. If a $ DUMP card, load Phase 1; 


if not, go to step 1, Phase 2. 


d. $ LINK cards with ortein fields are handled as follows: 
(a) Enter link ID in load table with defining address. 
(b) Get origin ID and search load table for definition. 
An undefined origin is an error. 
(c) Test NOPAC option. If set as the third field on the 


card, a flag is turned on so that the load table will 
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not be purged of references to SYMDEF's located within 
the link being overlayed. 
(d) Fill in chained references and undefined references 


within the link being overlayed. 
Ce) Write links being overlayed on H* file using MME GESAVE. 


(£) If NOPAC option is not set, purge all SYMDEFsS and 
references to SYMDEFs of the overlayed link from the 


load table. 


(g) The new load address (the new origin) is set to continue 


loading. 
(Ch) Print $ LINK card. 


(i) Read next control card. If $ DUMP card, load Phase 1; 
otherwise go to step 1, Phase 2. 
59. $ LOWLOAD card is used to initialize the loading address at 


the lower end of allocated core. 


60. When a decimal address is punched in the card, the initial 
loading address is incremented by this amount. This is to 


allow for BLANK COMMON. 


61. All constants are initialized with respect to the lower memory 


loading address. Then return to step 2. 


GE-GOO SERIES 


-25- 


62. The following table lists cells affected by $ OPTION card. 


eenanareen tn, 


Underlined options are weaned if no $ OPTION cued is included 


in the deck. 
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Cell in 
Option Memory 
MAP MAP 
N@MAP MAP 
CONGG ERXEQ 
Gg ERXEQ 
N¢GO XEQ 
; SET/n/ — ___SETG 
*% What haps by 
: f 
i Lifton 
a ERCNT/n/ MWRCT+3 
SYMREF PREFF 
NOSREF PREFF 
LOCYMN LLCMF 
NOSETU SETF 
NOFCB NOFCBF 
ALGOL ALGF 


Ape? bad 
vit? 


Contents 


Zero 


Nonzero 


Zero 


Nonzero 
Nonzero 


=n 


Nonzero 
Zero 


Nonzero 


Nonzero 


Nonzero 


Nonzero 


AWD 1 


om Chem (Coe 7 which may be up to 12 octal 
oN 


t 
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Effect on Loading 

Produce memory map 

No memory map printed 

Execute regardless of nonfatal 
loading errors. 


Execute only if no loading errors 


em 


a 


No execution 


ee Core will be preset to-value n 


_ characters. 
‘Gener contents of SETC: n=0) 
Maximum number of error messages 
allowed. 
(Normal contents = 150) 
Print SYMREF's on loader map. 
Do not Bae SYMREF 's. 
Assign all LABELED COMMON below 
BLANK COMMON 
Do not load the setup subroutine Se 
from the system library. Enter 
the user program directly. 
Do not call Phase 3 of GELOAD. 
No file control blocks will be 
generated by GELOAD. 


Set LOWLOAD option, prepare 


for the(LODER:) field on the 


g DKEND card,\ and set FCB options. 


QUITE 


Cell in 


Option Memory Contents Effect on Loading 
FCB N@FCB _ Zero Call PHASE 3 of GELOAD and 


generate file control blocks 


om a a oie 


nn, 


supplied. 


FORTRAN N@FCBF Zero Sets all standard loader options 
for the FORTRAN user. These 
include highload, FCB, and 
the use of the standard setup 


routine (.SETU.). 


COB GL N@FCBF Nonzero Sets all standard loader 
options for the COBOL user. 
These include LOWLOAD, 


STN aR mer Oy va 


NOF‘CB , and the use of the 


iran neneeranarene: 
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63. Convert decimal number in $ RELCOM card and increment beginning 


address of BLANK COMMON by this amount. 


64. The $ SOURCE card will cause one subprogram to be loaded from 


the B* file by the procedure in steps 6-52. 


65. Deviation from the above procedure occurs only when loading 
object subprograms generated by the TASMIN or G compilers. In 
these cases it is possible to encounter a $ DKEND control card 
with the word CONTINUE in the variable field. This would signal 
GELOAD to load another subprogram from the B* file. The 
CONTINUE option is present only when more than one source 
subprogram is batch compiled and a single ‘ SOURCE card appears 


on the R* file. 


66. $ USE causes symbolic names to be entered in the load table as 


undefined SYMREF's. 


67. When a symbol in the variable field is terminated by either a 
blank or a comma (break characters) it is entered in the next 
available Location of the load table followed by a cell of 


zeros signifying it is an undefined SYMREF. 


68. When a symbol is terminated by the slash (/) break character, 
the symbol is a LABELED COMMON entry and the number following 


the slash is converted as the size of the COMMON region. 


69. A LABELED COMMON entry of the form: 
$ USE  NAME/nL/ 
implies that the LABELED COMMON NAME of size n, is to be 
assigned in an area below BLANK COMMON or just above the 


user's fault vector. If any BLANK COMMON has already been 
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assigned, a nonfatal error message is printed, the field is 


ignored and the next field is considered. 


70. $ NOLIB causes no library search to be made during the loading. 
In link jobs, a $ NOLIB card must be included with each link 


for which a search is not to be made. 
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PHASE 3 CONTROL - GENERATE FILE CONTROL BLOCKS 
1. Determine Limits of user's memory still available after 
loading program (cell 31). 


ae ! eget es 
2. Read file control card. [Gtcos Tees PILE 
LAr, f Vu Vu. a a AAT Ye bene eC ate } j } 


M+ ¢ 


3. If card is not a file card (LIMITS, ENDJOB, etc.) print it and 


go to step 2. 


4. Test type of file card. 


a. GECOS--Only file code is saved in a table. 


b. FFILE--All information on this card is pertinent to the 


construction of the FCB. 


c. ETC--Only applicable to FFILE and is considered an 


error if it appears elsewhere. 


5. The file codes are carried from the GECOS cards in BCD. 


Each new code is compared with all other entries for duplication. 


™ A nonfatal error message is printed when duplication exists. 
lL An oe ‘b | 
m : / \ 
oe ef 6. Each of the possible fields on the FFILE card is encoded into 
( we Sa 
Atos La ‘i a respective position in a 10-word segment of the table 


pertaining to this FFILE card. The format of each segment 


of the table is as described earlier under Table Formats. 


7. Each field is picked up from the card image by the GFLD 
subroutine. The card is scanned until it is terminated by a 


blank column or the end of the card. (column 72). 
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8. When a card is terminated, the next card is considered. If it 


is an ETC card, the procedure in step 7 is continued; otherwise, 


control goes to step 4. 


9. The respective fields are handled as follows: 


Field 
STDLBL 


NBUFFS 


BUFSIZ 


LGU 


PREHED 
POSHED 
PRETRL 
POSTRL 


ERRXIT 
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Action 


Set bit 24 in word L+2 of table segment. 


Test format correct. 
Convert number using CVT subroutine. 


Shift bits into proper position. 


OR bits into word L+2 of table segment. 


Test format correct. 
Convert size using CVI subroutine. 


OR into upper of word L+2. 


Test if field appeared previously (error). 


Test format correct. 


Initialize tally for storing logical unit numbers. 


Convert numeric file code. 
Convert unit numbers 

Store in table segment. 

Repeat until list is complete. 
Test format correct. 

Get SYMDEF using GFLD subroutine. 


Search load table for SYMDEF. 


Store definition in respective location of table. 
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Field 


MIXLNG 


RETPER 


MLTFIL 
MODBCD 


FIXLNG 


NOSRLS 
LODENS 


IGNORE 
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Action 

Test format correct. 

Test FIXLNG already set. If so, reset. 

Get SYMDEF using GFLD subroutine 

Search load table 

Store definition in table. 

Test format correct 

Convert number 

OR into upper 18 bits of word Ltl 

Set bit 25 in word L+2 of table 

Set bit 21 in word L+l of table 

Test format correct 

Test MIXLNG already set. If so, reset. 
Convert record length iaimne CVI subroutine. 
Store length in Lower of 18 bits of word L+8 of table, 
Set bit 23 of word L+2 of table. 

Set bit 22 of word L+1l of table. 
Reinitialize beginning of table. 

Search table of GECOS file codes for match. 
If match exists, delete code in table. | 
Delete is accomplished by replacing code with 7777 


If match is not found, print error message. 


~3? = 
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10. 


dibs 


12. 


Los 


14. 


15. 


16. 


ae 


18. 


19. 


; 
When all cards have been. scanned (signaled by EOF on R* << cr 
ia Beng cs 


or encountering\$_ ENDLD card), control is transferred to the Unt ae 


7 
generator part of Phase 3. oe CPR: Fie tee | eee 


\ tele 
sae aaa 7, eee fen cee L- oy J, 


“Ces Tike 


Up to this point, all temporary tables have been set up Suh rr oT 
if af hs 


iad 


outside of the user's memory. 


The logical unit table and all FCB's will be generated in the 
user's unused memory and will be loaded in the same manner 


as additional subroutines. 
Area (22 words) is assigned for the logical unit table. 


Test present tables (GECOS file codes and FFILE) to determine 


which, if any, FCB's will be generated. 


FCB's for FFILE file codes are epennees First. (plejr- IG~2e ct) to FCR 


if GL FEILE Carte ) 
The standard FCB is agetaned 22 words--20 words for the FCB | 


itself and 2 words working areafor system library usage. 


The table of GECOS file codes is searched for the current 


code and if present, the code is deleted from the table. 


Begin generating FCB, filling in options as stated on FFILE 


card and encoded into table segment. 


All options not expressed on FFILE card are assumed to be 


standard options. 
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20. Logical units are transferred into the logical unit table using 
“a tally modification. | 
The format of the logical unit table is: 
VFD 18/FCB, 6/LU1, 6/LU2, 6/LU3 
using as many cells as are required to assign all logical 
unit numbers. FCB is the address of the L@CSYM. 


Sn recherche tre ON Rt Rae rN AY 8 Herma stem tren 


21. When FCB's have been generated for all FFILE cards, the table 
of GECOS file codes is checked for presence of numeric file 


codes which are numerically less than 44. 


22. Standard FCB's are generated for all numeric file codes less than 


44 which appeared on GECOS file cards. 


23. The file code is converted ‘to binary and entered in the logical 


unit table for this FCB. 


24. Steps 22 and 23 are repeated until FCB's are generated for all 


numeric file codes. 


a ee ses ear manera oo 


25. If to this point, FCB's have not been generated for P* and I* 


files, they are generated now. 


26. When no GECOS File Control cards and no FFILE cards are present 
with the job, two standard FCB's for P* and I* will be generated.. 
If only GECOS File Control Cards are present, no FCB's are 


generated. Control goes to step 29. 


27. All necessary FCB's have been generated. 


28. Calculate new limits of the unused memory and store them in 


cell 31 of the user's fault vector. 
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29. Return to GELOAD COMMON to close R* and P* files. 


30. Test if memory is to be released back to GECOS 


(user FL lo”, fae peste rar ee | 


31. Transfer a user -'§ program. 


" Pet i pyle AotW 


P SET ARE 
| [Wate promos (éencers \ 
et pilars tntied FO 
—< E 7Y MA we ole pr? 
ek pes tu bale a then. 


eee | een Ge re oa 
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MAJOR SUBROUTINES COMMON TO ALL PHASES 


FUNCTION 


Read Monitor Card 


Read BCD Card 


Print BCD Card 


Message Writer 
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CALLING SEQUENCE 


oF TSXL  RMCD 
L+l TRA (CEQF) 
L+2 Normal 


L TSXL RBCD 
L+l TRA ( EQF ) 
L+2 Normal 


L TSXL PBCD 
L+l Normal 


i TSXL MWR-CQDE*2 

L+l) See MACR@ expansion 

Lin { of the calling 
sequence 
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REMARKS 

Reads BCD card and 
checks for $ in 
column 1. Uses RBCD 


subroutine. 


Reads Card and checks 
for BCD. If not, error 
message is printed and 
read continues until 
BCD card is found. 


Blank cards are ignored. 


Writes one card image 
from the R* file onto 
the P« file. Uses 


MWR subroutine. 


Writes message on P*. 
Return and type code 
are specified as part 


of the macro. 


FUNCTION 


Get Field 


Convert Fixed-Point 
Numbers From Cards 


Enter Symbol In 
Load Table 
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CALLING SEQUENCE 


L-l LDA A,DU' 
L TSX1 GFLD 
L+1L Normal 


L-l LDA A,pDU 

L TSXL CVT 

L+lL Return with number 
in CVINM 


L-L LDA (Symbol) 

L TSXL ETBL 

L+L Return - In and 
Defined 

L+2 Return 
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REMARKS 

A is a composite mask 
of legal break charac- 
ters. ie rateess aes 
Picked up using GCHR 
and packed in FLD until 
a break character is 
found. The field is 
in FLD and the break 


character number is in 


X2 upon return. 


A is a composite mask 
of legal break charac- 
ters. Numerics are 
converted until a non- 
numeric is encountered. 
An illegal break 


character will cause 


an error message. 


Uses SLTB to search 
load table. If symbol 
is already in table 
and defined, return is 
at L+lL. If symbol is 
already in table but 


not defined, then 


return is at L+2 with 


FUNCTION CALLING SEQUENCE 


MAJOR SUBROUTINES OF PHASE 1 


Get Character From L TSX1L GCHR 
Card Image (Pass 1) L+l Return 


Read Debug Card L TSX1L RDCD 
L+l Continuation Card 
Return 


L+2 $ Card Return 
L+3 Normal Return 
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REMARKS 

zero indicator on. If 
symbol is not in table, 
it is entered as un- 
defined and the return 
is at L+2 with zero | 


indicator off. 


Loads one column from 

a BCD card image and 
isolatesit in the right 
most character position 
of the A-register. 


Ignores blanks. 


Reads card using RBCD. 
Dollar sign card may 
be an error. Continua- 
ei card has punch 
in column 6. Tally is 
set for scan of debug 


statement. 


MAJOR SUBROUTINES OF PHASE 2 


FUNCTION 


Get Character From 
Card Image (Pass 2) 


New Limits 


Load User's Libraries 
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CALLING SEQUENCE 


L TSX1L GCHR 
L+1 Return 


L TSXL NLMT 
L+1L Return 


L TSX1 ELNK 
L+1 Return 


-39- 


REMARKS 
Loads one column from 


a BCD card and right 


adjusts it in the A- 


register. Blanks are 


included. 


Calculates limits of 
Storage allocated to 
this program or link 
but unused by it. On 
return, the A-register 
has lowest unused cell 
address in the upper 
18 bits and highest 
unused cell address in 


the lower 18 bits. 


Picks user library file 
codes from list and 
searches them in turn. 
If user has not speci- 
fied any libraries, 
only the system library, 


L*, is searched. 


FUNCTION 


Print Storage 
Summary 


Define SYMREF 


Missing Routine 


Convert Octal For 
Printout 


Print Storage Map 
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CALLING SEQUENCE 


L TSXL PMAP 
L+1L Return 


af TSX1 CHN 
L+L Return 


L TSX1 MRT 
L+L Return 


| 


L-1 LDQ (NUMBER) 


i TSXL CVOCT 
L+lL Return 


L TSX1 SMAP 
L+1 Return 
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REMARKS 

Prints amount and 
bounds of storage used 
for object program, 


COMMON and debug tables. 


Searches load table for 
undefined SYMREFs. 
Fills in chain 
addresses if any exist. 
Calls MRT to handle 


missing routines. 


Fills in address of 
MME GEBORT subroutine 
at all references to 


missing routines. 


Converts 6-digit octal 
address for printing. 
Converted number is 
returned in the A- 


register. 


Prints names and 
locations of entries 

to the subroutine being 
loaded. Also prints 
names and locations of 


LABELED COMMON Regions 
and SYMREF's 
Coptional). 


FUNCTION 


Search Load Table 


Make Entry In 
Load Table 


Set Reference Table 
Location 


Search Symbol Table 
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CALLING SEQUENCE 


L-L 
L 

L+L 
L+2 


L+1 


LDA NAME 

TSX1 SLDT 
Return (In) 
Return (Not In) 


LDAQ (ENTRY) 
TSXL  ENTB 
Return 
TSXL SREFT 
Return 
LDA NAME 
TSXL  SYTB 


Return (Not In) 
Return (In) 
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REMARKS 

Searches load table 
in 256-word blocks. 
If return is to L+l, 
index register 2 
points to location in 


load table. 


Makes entry in next 

two available Locations 
of load table. A fatal 
error message is 
printed when table 
overlaps with user's 


program. 


Gets size of reference 


table from preface card 
and calculates a storage 
Location relative to load 


table. 
Uses logic of SLDT 


(above) to search debug 
symbol table. Q- 
register contains loca- 
tion of symbol when 


return is to L+2. 


FUNCTION 


Load Absolute Card 


Read Preface Card 


Read Binary Card 


Compute Checksum 
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CALLING SEQUENCE 


L TRA ABS 
(Return to read next 
card) 


L TSX1L PCRD 
L+1 Return 


L TSXL BCRD 


L TSX1 CKSUM 
L+1 Return 
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REMARKS 
Loads one absolute 
binary card. Checksum 


is calculated. 


Card type is checked. \'' 


Appropriate messages 
are printed if card is 
not preface card. ABS 
Subroutine is entered 
if card is absolute. 
Tally words are 


initialized for preface 


- cards. 


Picks a card image 


from buffer and checks 
type. Illegal cards 
cause message to be _ 
printed. BCD cards 
are checked for 

$ DKEND, signaling end 


of binary deck. 


Zero checksums are 
ignored. Message is 
printed when checksum 
on card does not com- 
Pare with that calcu- 


lated. Loading of 


“4 


“ 


FUNCTION CALLING SEQUENCE 


Get Load Address L-l LDA (Length) 
L TSXL GLD 
L+1 Return 
Enter SYMREF In L-Ll LDAQ (Entry) 
Load Table L TSX1 SRF 


L+L Return °- 
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REMARKS 
card with illegal 
checksum continues 


unchanged. 


Calculates new loading 
address by applying the 
length ( A-registey of 
the subprogram or data 
region to the current 
load address. Tests 
are made for the 
possibility of overlap 
with load table and top 
of memory. Counters con- 
cerning the highest and 
the lowest cells used are 
maintained by GLD. 
1. Makes normal entry 


in load table: 


BCI 1, NAME 
ZERO O, Pointer 


2. If entry is a 
LABELED COMMON 
region instead of 
SYMREF, two addi- 
tional words are 


entered: 


FUNCTION 


Enter Primary or 
Secondary SYMDEF 
In Load Table 


x 
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CALLING SEQUENCE 


LDAQ (Entry) 
TSXL SETY 
Return 
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REMARKS 


VFD6#/$,12/0,18/( Length) 
ZERO Loc, 0 


. Entry is made in 


reference table pointing 
to the second cell of 


the load table entry. 


. Make standard entry in 


load table: 


BCI 1, NAME 
ZERO Loc, O 


. Make entry in reference 


table pointing to the 
second cell of the load 


table entry. 


; 


EFFECT OF LOWLOAD OPTION 


Cell or Control 
Affected 


LDADD 


MLDADD 


LLDADD 


BLDADD 


_ / * 
|=, kee ae ee on ee 


ce 


LWLD 


HIGHLOAD 

Contains loading address 
of current subroutine 
being loaded. 
by subtracting length of 
subprogram from previous 


load address. 


Contains address of 
first cell above user's 


allocated memory. 


Contains address of 
first unused cell below 
subprogram being 


loaded. 


Contains address of 
lowest cell used by 


user's program. 


een an RN oem, 


Contains zero. 
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Calculated 


LOWLOAD 

Same as HIGHLOAD except 
address is calculated by 
adding length of previous 
subprogram to previous load 


address. 


Contains address of first 
unused cell above subprogram 


being loaded. 


Contains address of first 
unused cell above subprogram 
being loaded (same as 


MLDADD). 


Same as HIGHLOAD. 


Contains base load address 
for user's program. This 
cell is used as a flag 


signaling LOWLOAD option. 
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Cell or Control 
Affected 


BASE 


MXCR 


Location of 
Reference Table 
(Relative to 
current sub- 
program) 


Location of 
Debug Tables 
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HIGHLOAD 
Base address of user's 


allocated memory. 


Upper limit of user's 


allocated memory. 


Stored downward 
beginning at address 


contained in LLDADD. 


Generated downward 
from highest available 
location in user's 


allocated memory. 
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LOWLOAD 


Same as HIGHLOAD. 


Same as HIGHLOAD. 


Stored downward beginning 


at top of user's memory. 


Generated as in HIGHLOAD 
and moved to a position 
relative to user's lowest 


(Above 


BLANK COMMON region. ) 


ee rrr 


loading address. 


DEFINITIONS OF TERMS FREQUENTLY USED 


Primary SYMDEF - Symbolic location in the user's subprogram 


which denotes an entry point to the subprogram. 


Secondary SYMDEF Symbolic location in the user's subprogram 


to be referred to from outside the subprogram 


but which is not necessarily an entry point. 


SYMREF - Symbols referred to within the subprogram 
which are defined externally as SYMDEFs in 


other subprograms. 


LABELED COMMON - Common regions which are loaded with the 
subroutines and referred to by name. Entries 
are made in the load table to enable 


referencing by any subprogram. 


BLANK COMMON - The COMMON region located just above the 
user's fault vector at the low end of his 
allocated memory. BLANK COMMON is referenced 
by absolute addressing relative to the user's 


base address register. 


) 
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MEMORY DIAGRAM FOR HIGHLOAD 


Lowest Address Allocated To 
Loader 


GELOAD Subroutines and Buffers 
Common To All Phases 


Phase 1 Phase 2 Phase 3 


Lowest atdyuaa Load Table 
Po SAVE FEE Pie, COO MECOS) 


PReerd or J mie PREMISE COIN Oe 
Latrip ide File Control Blocks and Buffers 
x ” ~f 


FCB option generates 

File Control Blocks for 
the job following loading 
Boe ae —— of all subprograms 


~ id \ 
(eA2E) > 


Si Loapo 
Program 2 

is, Ses, at as ne ra ee es eS se 42- AUD «Op 
Program 1 


Debug Table (If Any) 


Stored Backwards Highest Address of Allocated Memory. 


Maco ec ty Slave hy Try 
(myc) 
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MEMORY DIAGRAM FOR LOWLOAD 


Lowest Address Allocated To Loader 


GELOAD Subroutine and Buffers 
Common To All Phases 


Phase 1 Phase 2 Phase 3 


: ee # e yf Yee L as 


Load Tables 


Sn a OE eR ETE 


“\| Lowest Address Allocated to User‘s , 
ss lA vc Act, 2) ty ( 3 4 St, 


fed CF} i eH ery & 


Lf t. wa 
Debug Tables (if Anyy 


Stored Backwards 
age eS Sey eee me) ae > aR ce eee OOo 


Program 1 


Program 2 


Zam LWEO » 
File Control Blocks and FCB option generates File 
Buffers Control Blocks for the job 
following loading of all 

e *4 subprograms - 


"yy Debug Tables Generated 
') | Here and Moved to Current 


Highest Address Allocated to User 5 
Slare Aetdy (aixee ) 


J 
¢ 
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